   1 .ARCADE DICE
   2 .BY K.F.G.
   3 :return 
   5 clear ;NT=0;FC=84;BC=24
  10 print ;print "  * * * ARCADE DICE * * *
  20 print ;print ;print "  1 ELECTRONIC DICE
  30 print ;print " 2 ELECTRONIC CRAPS
  40 print ;print ;print "     MAKE SELECTION
  50 if &(23)=8clear ;goto 100
  60 if &(22)=8clear ;K=1;T=0;goto 150
  70 goto 50
 100 gosub 780;input "# OF PLAYERS:"P;if P>4P=4
 110 if P=1K=1;gosub 800;goto 110
 120 goto 700
 140 CX=-75;CY=40;return 
 150 NT=1
 160 box 0,30,80,9,2
 170 box 0,40,160,8,2
 180 M=((KN(1)+128)div 28)+1
 190 if &(22)=16goto 5
 200 gosub 140;print " BET:$",#3,M,
 210 if TR(1)=0goto 180
 220 gosub 800
 230 gosub 500
 240 S=L+R
 250 if S=7gosub 510;goto 600
 260 if S=11gosub 510;goto 600
 270 if S=2gosub 520;goto 400
 280 if S=3gosub 520;goto 400
 290 if S=12gosub 520;goto 400
 300 gosub 500;print "ROLL AGAIN",
 310 gosub 800
 320 gosub 500
 330 A=L+R
 340 if A=Sgosub 530;goto 600
 350 if A=7gosub 540;goto 400
 360 goto 310
 400 gosub 140;print " # # # # YOU LOSE # # # #
 410 NT=8
 420 MU=49;MU=51;MU=53;MU=98;MU=49;MU=48;MU=53;MU=98;MU=49;MU=48;MU=48;MU=48;MU=48
 430 NT=0
 440 CX=-75;CY=-40;print " LOST $",#3,
 450 M=-M
 460 goto 550
 500 CX=-20;CY=30;return 
 510 print "A NATURAL",;return 
 520 print "CRAPS",;return 
 530 print "A MATCH   ",;return 
 540 print "CRAP OUT  ",;return 
 550 T=T+M
 560 CX=0;print "YOU HAVE $",#3,T,
 570 for Z=1to 100
 580 Y=Y+1;next Z;Y=0
 590 goto 150
 600 gosub 140;print "$$$$$$$$ A WINNER $$$$$$$$
 610 NT=8
 620 for Z=1to 2
 630 MU=51;MU=48;MU=53;MU=48;MU=48;MU=51;MU=52;MU=48;MU=53;MU=48;MU=48;MU=48;MU=48
 640 next Z;NT=0
 650 CX=-75;CY=-40;print "  WIN $",#3,M,
 660 goto 550
 700 for K=1to P+3;@(K)=0;next K
 710 for K=1to P
 720 gosub 780;print "PLAYER #",#2,K," ROLLS",
 730 gosub 800;@(K)=L+R;next K
 740 for K=1to P
 750 if @(K)>@(K+1)if @(K)>@(K+2)if @(K)>(K+3)gosub 780;print "PLAYER #",#2,K," WINS ",;goto 770
 760 next K
 770 for Z=1to 200;Y=Y+1;next Z;Y=0;goto 700
 780 CX=-40;CY=-40;return 
 800 N=7-((KN(K)+128)div 42)
 810 NT=1;if &(22)=16goto 5
 820 CX=0;CY=40;print "# OF ROLLS:",#2,N,
 830 if TR(K)=0goto 800
 840 NT=20;for D=1to N
 850 box -40,0,44,44,1;box -40,0,42,42,2
 860 L=rnd (6);X=-40;gosub 890+(Lmul 10)
 870 box 40,0,44,44,1;box 40,0,42,42,2
 880 R=rnd (6);X=40;gosub 890+(Rmul 10)
 890 next D;NT=1;return 
 900 gosub 960;return 
 910 gosub 970;return 
 920 gosub 960;gosub 970;return 
 930 gosub 970;gosub 980;return 
 940 gosub 960;gosub 970;gosub 980;return 
 950 gosub 970;gosub 980;gosub 990;return 
 960 box X,0,6,6,1;return 
 970 box X+12,12,6,6,1;box X-12,-12,6,6,1;return 
 980 box X-12,12,6,6,1;box X+12,-12,6,6,1;return 
 990 box X-12,0,6,6,1;box X+12,0,6,6,1;return 
:return ;run 
